      PROGRAM csvtest

      use csv_file

      implicit none

      INTEGER n
      PARAMETER (n=10)
      REAL, DIMENSION(n) :: x
      DOUBLE PRECISION, DIMENSION(n) :: y

      do 1000 i=1,10
          x = i*2.2;
          y = i*2.2;
1000  continue

      
